home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / boot / reboot / reboot.e < prev    next >
Encoding:
Text File  |  1996-05-03  |  917 b   |  52 lines
  1. /* Reboot - Reboot your computer
  2. ** Written in 1996 by Sebastian Rittau
  3. ** Placed in the Public Domain
  4. */
  5.  
  6. OPT PREPROCESS
  7.  
  8.  
  9. MODULE 'dos/dos'
  10. MODULE 'own/error',
  11.        'own/startup'
  12.  
  13.  
  14. DEF start:PTR TO obj_startup
  15.  
  16.  
  17. #define TEMPLATE 'DELAY/N'
  18. ENUM ARG_DELAY=0
  19.  
  20.  
  21.  
  22. PROC main() HANDLE
  23.  DEF return=RETURN_FAIL,error
  24.  
  25.   NEW start
  26.   IF (error:=start.ini(execbase,37,TEMPLATE,NIL))
  27.     SELECT error
  28.     CASE ERROR_NOMEM
  29.       WriteF('Out of memory.\n')
  30.     CASE STARTM_WRONGARGS
  31.       WriteF('Wrong arguments.\n')
  32.     DEFAULT
  33.       WriteF('Unknown error.\nPlease inform the author.\n')
  34.     ENDSELECT
  35.   ELSE
  36.     IF start.parsed[ARG_DELAY] THEN Delay(Long(start.parsed[ARG_DELAY])*50)
  37.     ColdReboot()
  38.   ENDIF
  39.  
  40. endmain:
  41.   IF start THEN END start
  42. EXCEPT
  43.   SELECT exception
  44.   CASE "MEM"
  45.     WriteF('Out of memory.\n')
  46.   DEFAULT
  47.     WriteF('Unknown error.\nPlease inform the author.\n')
  48.   ENDSELECT
  49.   JUMP endmain
  50. ENDPROC return
  51.  
  52.